IBM InfoROM for OS/2 Beta 1995 January/IBM InfoROM for OS2 Beta 1-1995.ISO/testcert/storage/function/cdrom/rd2048t4.scr

Text File | 1994-09-07 | 538 b | 24 lines

@thread RD2048T4.LOG
@NewAlias cd CDROM.GRA
@IMPORT SYSINFO.TXT
cd log $PROMPT="LOGGING RD2048T4"
cd set SECTORSTART=200 $RESULT=SECTORSTART $OP2=20
cd set SECTORCOUNT=20 MESSAGE=LOOP_BEGINING MESSAGE2=LOOP_END
cd set ADDRESSMODE=LOGICALBLOCK  BUFFER=ALPHA
cd CDROM_OPEN
cd log $PROMPT="       READING SECTORS"
@loop 40
cd out $KWD=MESSAGE
cd out $KWD=SECTORSTART
cd CDROM_READ2048
cd add $OP1=$(SECTORSTART)
cd out $KWD=MESSAGE2
@endloop
cd log $PROMPT="       SECTOR READ FINISHED"
cd CDROM_CLOSE
@flush cd